



8 ى فى حالة عدم تخصيص قيمة للمتغير فى جملة الإعلان عنه يقوم برنامج 77.18.3814 بتخصيص قيمة إفتراضية للمتغيرات الرقمية هى ٠‏ 
والمتغيرات النصية بسلسلة حرفية فارغة "" والمتغيرات المنطقية بالقيمة ©1"215. 
7 الإرشادات التى يجب إتباعها عند تسمية المتغيرات 5721121125 :ئ 





أ - يجب أن يبدأ إسم المتغير بحرف هجائى أو علامة _ ولا يبدأ برقم. ب - يتكون من حرف أو أكثر 

ج - ألا يحتوى على أى رمز أو علامات خاصة كالمسافة أو النقطة أو علامة الإستفهام أو Daas‏ > > -+=* 27) 

Sub — Text Color - Me - Dim - Single مثل‎ Visual Basic.Net د - ألا يكون من الكلمات المحجوزة لدی لغة‎ 
لخ‎ - Double - Boolean - As - Short - Private 


ه ‏ يفضل أن يعبر إسم المتغير عن محتواه ( هذا البند إختيارى ) 
۸ لا تعتبر أسماء الخصائص من الكلمات المحجوزة . 
۾ الإرشادات التى يجب إتباعها عند إختيار نوع البيان ©1576 12942 للمتغيرات 1721121165 : 





١‏ - حجم البيانات التى سوف تخزن بالمتغير ©7721:1211. " - الإستخدام الأمثل لذاكرة الكمبيوتر من حيث المساحة التخزينية. 
۳ - العمليات الحسابية والمنطقية التى ستجرى على القيمة المخزنة بهذا المتغير . 
۸ يتم تنفيذ أمر التخصيص كما ب 





أ - تحديد القيمة الموجودة على يمين معامل التخصيص = كالتالى : 
١‏ إستبدال كل متغير أو ثابت بقيمته ( التعويض ). ؟ - إجراء العمليات الحسابية واستخراج النتيجة . 
ب - تخزين ( تخصيص أو إحلال ) الناتج فى المتغير الموجود على يسار معامل التخصيص - 

۸ علامة & تستخدم للربط بين القيم أو المتغيرات أو الثوابت أو الخصائص النصية . 
۸ الكلمة المحجوزة 77):1,4 تستخدم فى إنشاء سطر جديد وهی تشير لمفتاح الإدخال )۴ اصن لوحة المفاتيح 
۸ تم استخدام علامة ( _ ) حتى يمكن كتابة سطر الكود على أكثر من سطر إذا كان سطر الكود طويلاً بعض الشئ وذلك لتنظيم وتسهيل عملية 

قراءة الكود ©6000 
۸ تم استخدام الكلمة المحجوزة م« للتعبير عن نافذة النموذج ده" الحالى. 
۸ تم استخدام كلمة RE‏ أو علامة التعليق " ' " لكتابة ملاحظات تساعد القارئ على فهم وتوضيح الأكواد المكتوبة . 
ع الأخطاء الإملائية والنحوية 1:1:01:5؟1 :59162 : تحدث عند كتابة الكود ©00016) بصورة غير سليمة كما يلى : 


والخطأ هنا أنه تم الإعلان عن المتغير بكلمة خطأ ھی 123122 بدلا من #تدط Din Radius As Single‏ 
والخطأ هنا آنه تم الإعلان عن الثابت ذم ولكن لم تخصص له قيمة أثناء الإعلان Const pi As Single‏ 


ع الأخطاء المنطقية 101:5 عزوم : وتحدث إذا استخدمت تعبيرات 1720125510125 بناؤها غير سليم وتحدث فى جمل التخصيص غالبا › 
مما يؤدى إلى نتائج غير سليمة عند استخدام البرنامج .وللتغلب على هذا النوع من الأخطاء يجب مراجعة الكود المكتوب جيداً 

ع أخطاء عند التشغيل 01:5:-101:1 190113611216 : وتحدث فى جمل التخصيص غالبا فمثلاً عند تخصيص قيمة أكبر من مدى نوع البيان 127262 
»م79 المستخدم › أو تخصيص قيمة من نوع بيان يختلف عن نوع بيان المتغير أو الثابت أو الخاصية ولا يستطيع مترجم اللغة 
1 زمدده') تحويلها لنوع البيان ©1770 17918 المناسب 


Dim Radius As Single م فمثلا‎ 
Radius = True 

Dim Radius As Byte فمثلاً‎ ۸ 
Radius = 


ع التغلب على أخطاء التشغيل Runtime Errors‏ : 
أولاً : إستخدام جملكه 117 C€atch End‏ 175 : الصيغة العامة لها 





يتم وضع الأكواد المتأكد ألا يظهر بها أخطاء وباقى الأكواد 
۸ وهى تمكن المبرمج من التعامل مع الأخطاء التى تحدث أثناء التشغيل بنفسه › وتمكنه من عرض رسائل محددة وواضحه للمستخدم 


س : تستخدم جملة »157/0026 ( لاكتشاف الأخطاء - لإصلاح الأخطاء - لتجاهل الأخطاء ) 

س : يعتبر ( Dem - Short) - 8314© - ¡i‏ ) إسماً صحيحاً لمتغير أو ثابت 

س : ثابت حرفى يستخدم لإنشاء سطر جديد وهی تشير لمفتاح الإدخال )ږغ من لوحة المفاتيح ( (vbCrLf - & - Dim - Rem‏ 
س : حدد جملة التخصيص الصحيحة ( 5 + X 8 × = ١‏ = °+ ؟ (X-"=1+°‏ 

س : الإسم 71116 يصلح أن يكون إسماً لمتغير أو ثابت (۷) 
س : الطرف الأيسر من جملة التخصيص - يمثل المكان أو المخزن الذى توضع فيه القيمة (7) 


g1 -‏ 5 ےد“ g1‏ >5 ےد“ g1‏ >5 ےد“ g1‏ >5 ےد“ g1‏ >5 ےد“ g1‏ >5 ےد“ g1‏ 5 ےد“ g1‏ >5 ےد“ g1‏ 5 ٣ے‏ د“ >= ”>= ”>= ”> ”>= a => g1 5> “a => gı‏ >5 1ے >5 ”> ”> ”>= gı => gı‏ >= د ا gı > a =>” =>” “a >” => => gı “a‏ > ا a‏ >= ا ا ا ا ا gı “a => gı => =>” “a‏ >= 1 
> _-2 = > ك2 _-2 = _-2 كد _-2 = _2 كد22 2_3 = _2 > = > > > > = > > > ك2 > > > > > > = > ك2 = = ك2 = > > > = > > = > ك2 > > > > ك2 = > > هة 

5 ا ١د ا‎ => gı => gı ا د‎ => a =>” ا‎ => a ا ا د“‎ => gı =>” ا ”>= ا ا ا ا‎ => gı د د“ د“‎ => gı => a ےد“‎ “a => =>” => gı “a =>” => ا 1ے‎ => gı 5> g1 ےھ“ د“‎ 5 g1 ےد“‎ 5> g1 ےد“‎ 5> g1 ےد“‎ 5> g1 ےد“‎ 5> g1 ےد“‎ 5> g1 ےد“‎ 5 g1 ےد“‎ 5> g1 
> كد22 = = _2 = = ك2 _ك2 > _-2 = = كد22 = = > 2 > > = ك2 > > > ك2 = ك2 > > > = > > > ك2 ك2 2 ك2 > > > > ك2 > > > = > > > > > ك2‎ 2_ = 








8 س : الطرف 
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الصف الثالث الإعدادى )۲( ( تيرم ثانى 7١١7‏ ) 


س 
س 
س 
س 








ا ن من لل 











Dim Num As Integer 
If Num >= Then 
Me.Label .Text = "One" 
Elself Num = Then 
2 
سيك‎ 0 Me.Label .Text = "Two" ١ 
"Three" -& Else 
Me.Label .Text = "Three" 
End If 
Dim A As Integer = 
"True" — If A Mod = Then 
Me.Label .Text = "True" 
لے‎ 
False : Else ۲ 
٠° چ‎ Me.Label .Text = "False" 
End If 
v if_Ahmed ل 00 أ‎ = "Ahmed 
Youssif Ahmed ا ا ا ب‎ ۳ 
strName = "Youssif" © strName 
Ahmed -& Label .Text = strName 
AXB=٦؟‎ Dim A As Integer = 
Vx 51" 0 Dim B As Integer = ٤ 
Vx4=A*B ج‎ MésgBox( A & "26" & B & "=" ع‎ "1 " & A * B) 
چ چ چ چ چ ص ج تڪ چ چ چ چ چ کڪ‎ 2 
: س : اقرأ التعليمات التاليه‎ 
Age = 6 
Mark = ٠ 
If Age < "١ Then 
Age = ۱٦ 
Mark = 1۰۰ 
End If 


؟ * Total = Mark‏ 
بعد تنفيذ التعليمات السابقة اختر الإجابة الصحيحة لكلا مما يلي : 


١١ با .8 جب‎ ۲٥,٥ قيمة المتغير عع 4 تساوي : أ‎ ١ 
0, قيمة المتغير 711:1 تساوي: أ .4 بط ۱۰۰ چ‎ 
False ج-‎ True پ—‎ ۲٥,٥ أ‎ : A مع‎ > ۲١ قيمة الشرط‎ ۳ 
1۹۰ چ-‎ ١8٠١ ب‎ ٠٠ قيمة المتغير 7101421 تساوي : أ‎ >٤ 


: جملة 112 16 هى من أوامر التفرع لإختيار بديل واحد فقط أو مجموعة واحدة من الأوامر من,بين عدة بدائل ) 
: جملة 1015611 1112 16 هى من أوامر التفرع لإختيار بديل واحد فقط أو مجموعة واحدة من الأوامر من بين عدة مجموعات من الأوامر ( 7 
: جملة 171511 11:1 1f‏ هى من أوامر التفرع لإختيار بديل واحد فقط أو مجموعة واحدة من الأوامر من بين عدة بدائل متنوعة ( 7 
: جملة 101511 111613 15 هی من أوامر التفرع و تستخدم عند وجود أكثر من تعبير شرطى يراد اختباره 70 


۴ استخدام الجملة )»71 ..... ۴٥۲‏ : يستخدم لتكرار تنفيذ كود ©006') لعدد محدد من المرات معروف مسبقاً عددها. 


وظيفة الأمر )بره77 هى : 


١‏ - زيادة عداد الحلقة بقيمة معدل الزيادة أى ( بواحد إفتراضياً ) . ۲ - مقارنة القيمة الجديدة لعداد الحلقة بالقيمة النهائية. 


جدول الضرب للعدد (۳) 


س 


Dim N As Integer 
Me.Label .Text = "" 
For N = To Step 
Me.Label .Text = Me.Label .Text & N 7 
سر‎ 0 


: إذا كان ناتج الكود التالى هو : 


Next 


è7” DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DCE DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC” DC DC 
IR ل‎ IN IMN N IMN NMR “الكت “الكت “اكت “الآ “الآ “الكت الكت “اكت “اكت “اكت لآ‎ MN ION MN AMR الت التق “الكت‎ N IR AAR IN MN IRN IRN “ات‎ RMR MR MR SMR MR MR SM SM كه ةكت‎ 


o7” Se “DC DC DC DC DC DC DCE DE DCE DC DE DCE DE DC DCE DCE DCE DCE DCE DCE DC “E DC DEC DCE DC DC DC DC DC DC DCE DC DC DC DC DC DC DC DC DC 
IRN IN IAM MN ”ىل‎ N ”اكت ”لكآ‎ MR MR MN “الكت “الكت “الكت لكآ‎ RN ”لكآ “الكت “الكت “الآ‎ MR ARN NR IR MR IR الآ “الكت ”الكت‎ IR IR الت “التق الكت‎ IRN IR MR اكت‎ N IN لتم اكت لا‎ o 





كد22 _ 2 كد _ك2 كد22 = د _2 كد > كد _2 كد22 = كد _2 > _2 > > > = > _-2 > = = > > = > > > > ك2 ك2 ك2 > ك2 ك2 > ك2 ك2 = > > ك2 > > > = ك2 > > = _ ك2 ك2 _-2 
١ © © © © © © ©‏ 
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السؤال الثانى : اختر الإجابة الصحيحة :ما القيمة المعروضة 8 أداة العنوان )ں0[ط[ عند تنفيد الكود ©0006) التالى : 
Dim i As Integer‏ 


For i = To Step 
Me. lblOut.Text = Me.lblOut.Text © 1 & 1," 
Next 
«كعل/عتكت ةع"‎ € TeTcoftcOe TNA (1 ۰ أ” ب‎ 


ه يتم تخصيص قيم للثوابت 002568215) ٠:‏ أ- عند الإعلان عن الثوابت فقط. 
أجب عما يلى :حدد قيمة كل متغير بعد تنفيذ الكود ©00) التالى : 
Dim N, K, C As Integer‏ 





= 6 
For N = To Step‏ 
K = K + N‏ 
Next‏ 
IF N >= C Then‏ 
C = C+‏ 
End IF‏ 
ا ا ن ن صم 
For r = To Step -‏ 
١ 59 — ۵ ) Sum = Sum + r‏ ( 
Next‏ 
MsgBox (F) |‏ | | 
السؤال الثاني : اختر الإجابة الصحيحة :بفرض وجود دالة باسم ( u)‏ ۸۵45 أى من التعبيرات الآتية غير صحيح عند استدعائها : 1 
X=Y 4AddSum() - Î‏ ب - AddSum() = XF Y‏ چ —- ) 401015111210 = X‏ 
۲ - حدد الخطأ فى الحلقة التكرارية التالية : 
Dim j] As Byte‏ 
For ] = To Step‏ 
Me.ListBOx<x .Items .Add (j)‏ 
LOOP‏ 
>٤‏ - يتوقف التكرار فى جملة - مه5+6 To‏ = 124 عه عندما تبح قيمة المتغير :M1‏ 
أ - أكبر من قيمة النهاية ب - أصغر من قيمة النهاية جب أصغر من أو تساوى قيمة النهاية 


- حدد ناتج تنفيذ العملية الحسابية NETS‏ ذا 

اختر 57 الصحيحة ٠:‏ أولاً ۽ اختر الإجابة الصحيحة : ١‏ _الهدف من الكود 6 التالى هو : 

Dim N As Integer 
Dim S As Integer 


For N = To 

S = 5 + N 
Next 
Me.Label .Text = S 

أ - عرض الأعداد من ١‏ إلى ٠٠١‏ ب - عرض مجموع الأعداد من ١‏ إلى ٠٠١‏ 

؟ ‏ ما القيمة المعروضة فى أداة العنوان ءطو عند تنفيذ الكود التالى : 
Dim intNum As Integer =‏ 
intNum = intNum +‏ 
intNum Mod‏ = 31111111113 
Me.Label .Text = intNum‏ 
أ _ ۳ ب ا جج ٤‏ 


ك2 > = > ك2 _2 = _2 > _-2 = _2 ك2 2_3 = _2 = = > > > هة ك2 > > > > > ك2 ك2 ك2 = > > = > > > ك2 > > > ك2 > > > = > ك2 > > > > ك2 = > = > 
ل 





كمبيوتر ۳ ااا ا 





0 


۸ 





٠ 
د‎ => a => g1 د١‎ => a 1ے >5 ١د ا ا‎ => a ا ا ا ”> د“‎ =>” “a => gı ا ا د“ د“‎ => =>” “a => => gı =>” 5> gı >” =>” => gı => gı >” => د١‎ > a => gı => ےھ“ 1ے‎ 5> g1 ےد“‎ 5> g1 ےد“ ”>5 ےد“‎ 5 g1 د“‎ 5> g1 ےد“‎ 5> g1 ےد“ د“ ےد“‎ 5 g1 ےد“‎ 
> > = > > > > = > > كد _2 ك2 _2 كد = ك2 _2 كد22 = > > = ك2 ك2 = ك2 > > > ك2 = = > > > = ك2 > > ك2 > > > > > > > ك2‎ 2_ = 2-_ > = = 2_ 











الصف الثالث الإعدادى (٤(‏ ( تيرم ثانى ۲۰۱۳ ) 
أجب عما يلى : 
١‏ - حدد قيمة كل متغير بعد تنفيذ الكود »000 التالى :بفرض أن ٠ , 2 «<2 3٠١‏ دج , ١د(‏ , ادع , '=رy‏ 
If x > yY Then‏ 
k + 5‏ = 2 
x= x +‏ 
> خا = ل 
Else‏ 
y‏ - ع[ = 2 
x +‏ ت عد 
oS‏ 
End If‏ 
۳ فى الأكواد/الآتية حدد سبب الخطأ : ا 
TextBox? .Teky‏ = 
InualidCastException was unhandled‏ إل ١‏ 
to type Byte’ | not valid.‏ "خعسة عشر درج" e Converion from sri ٩9‏ لالج جوع | 
السبب :لا يجوز تحويل القيمة النصية ع5 "خمسة عشرة درجة" المدخلة فى صندوق النص ۲٥×٤80×‏ إلى نوع بیان 13916 
تخصيص دحوت ١‏ تخدم لكل متقير' 
arabic ™ TexCBoxl.Text _‏ 
E ıl OverflowException was unhandled‏ فقن تجو #افمحفيوة: 
الست EERE - arabic + CO1 Arithmetic operation resulted in an overflow.‏ 
أن نتيجة إدخال قيمة خارج المدى المسموح به :1222»7)101 2016111055 فى صندوق النص ×80ا×1e‏ . 
س : إذا كان For I=1 To ٠١ Step X‏ 
MsgBox( I )‏ 
Next‏ 


أ - ماذا يحدث إذا كان قيمة المتغير × موجبة ؟ 

ج - ماذا يحدث إذا كان قيمة المتغير × مساوية للصفر ؟ 
ج: أ تظهر مربعات رسائل بقيمة العداد 1 فى كل مرة يتم تنفيذ التكرار بمعنى يتم التكرار وطباعة الاعداد من ١‏ الى ٠١‏ 
ب لا يتم تنفيذ التكرار ولا يظهر شئ 


ب - ماذا يحدث إذا كان قيمة المتغير × سالبة ؟ 


مالا نهاية. 
س : إذا كان لديك الكود التالى حدد ما سيظهر داخل صندوق النص 120150١‏ : 
M = To‏ 
Me. TextBox .Text = M‏ 
> : النص pr‏ 
س : إذا كان لديك الكود التالى حدد ما سيظهر داخل صندوق النص 0×۱ ۲۶×۲8 : 
M = To‏ 
Me. TextBox .Text = Me. TextBox .Text © M‏ 
ج : النص TTT‏ 
س : إذا كان لديك الكود التالى حدد ما سيظهر داخل صندوق النص ١‏ :126150 : 
M = To‏ 


Me. TextBox .Text = Me.TextBox .Text © M © vbCrLf 


ج - يظهر مربع رسالة :7158130 به قيمة العداد الإبتدائية ١‏ ثم بعد النقر على زر 0O‏ يظهر نفس مربع الرسالة :7155130 إلى 





For 


Next 


For 


Next 


For 


Next 


كمبيوتر ٤‏ عداد ١‏ / حسن كونه 
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